Celestin Apprentice 7/Apprentice-Release7.iso/Source Code/Pascal/Applications/NIH Image 1.62b11/src/Glue.c

C/C++ Source or Header | 1994-12-05 | 508 b | 15 lines | [TEXT/MPCC]

/* C glue code needed by PowerPC native version of NIH Image to call
   68K Photoshop compatible plug-ins. CallUniversalProc can't be called
   directly from Pascal because is uses a variable number of arguments.

   uppCallCodeInfo = $00003F80; { PROCEDURE (2 byte param, 4 byte param, 4 byte param, 4 byte param);
*/

#include <Types.h>


void CallCode(short selector, Ptr stuff, long *data, short *result, UniversalProcPtr codePtr)
{
    CallUniversalProc(codePtr, 0x3F80L, selector, stuff, data, result);
}